home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 75
/
075.d81
/
sound boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
876b
|
23 lines
10 print"[147]":gosub70::poke49153,0
20 poke 53281,0:poke 53280,0:poke2043,8
30 print"[144]":print""
40 print "p[207]4096,0:p[207]44,16:load";chr$(34);f$;chr$(34)",8"
50 print"run"
60 poke631,13:poke632,13:poke198,2:end
70 poke53280,0:poke53281,0:iffthenreturn
80 print"[147][159][176][178][178][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][178][178][178][174]";
90 a$="[171][156][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
100 b$="[171][154][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
110 c$="[221][221][221][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221][221][221][221][221]"
120 printc$;:fori=1to3:printa$c$b$c$;:next
130 print"[173][177][177][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][177][177][177]";:poke2023,125:poke56295,6
140 fori=217to242:pokei,peek(i)or128:next
150 a$=" [155][157][163][157] [157] [157] [157] [157] [157] [157][151][163][145][145][145][145][145][145][145][145]"
160 poke214,13:print"[145]";:fori=1to32:printa$;:next:print"[155]"
170 fori=1to5:reada$:gosub180:next:goto190
180 printspc(20-len(a$)/2)""a$:a$="":return
190 f$="sound effective":return
200 data"[211] [207][160][213][160][206][160][196] [160] [197][160][198][160][198][160][197][160][195][160][212][160][201][160][214] [197]","by [205]alcolm [196]ale
210 [131]"(NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #75","(NULL)ubscriptions 1-800-831-2694"
220 [131]"lenopyright (len) 1990 (NULL)oftdisk"